home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / tg_rk_p3.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  1.0 KB  |  32 lines
  1. 10 PRINT "CLASSEMENT PAR LA METHODE       RANK ORDER CLUSTERING"
  2. 15 PRINT "CALCUL SUR LIGNES"
  3. 20 FOR I=1 TO M
  4. 25 A(I,P+1)=0
  5. 30 FOR J=1 TO P
  6. 40 IF A(I,J)=1 THEN A(I,P+1)=A(I,P+1)+2^(P-J)
  7. 50 NEXT:NEXT
  8. 60 REM   GOSUB #2
  9. 70 PRINT "RANGEMENT SUIVANT ORDRE CROISS"
  10. 75 CLS
  11. 80 MO=0:FOR I=1 TO M
  12. 90 IF A(I,P+1)<A(I+1,P+1) THEN MO=1:FOR J=1 TO P+1:T=A(I,J):A(I,J)=A(I+1,J):A(I+1,J)=T:NEXT:T=M(I):M(I)=M(I+1):M(I+1)=T
  13. 100 NEXT I:PRINT "*";:IF MO=1 THEN 80
  14. 105 PRINT CHR$(13);
  15. 110 PRINT "ARRANGEMENT DES MACHINES:":FOR I=1 TO M:PRINT M(I);:NEXT:PRINT
  16. 120 PRINT "CALCUL SUR COLONNES"
  17. 130 FOR J=1 TO P
  18. 150 A(M+1,J)=0
  19. 160 FOR I=1 TO M
  20. 170 A(M+1,J)=A(M+1,J)+2^(M-I)*A(I,J)
  21. 180 NEXT:NEXT
  22. 190     GOSUB #2
  23. 200 PRINT "RANGEMENT SUIVANT ORDRE CROISS"
  24. 205 CLS
  25. 210 MO=0:FOR J=1 TO P
  26. 220 IF A(M+1,J)<A(M+1,J+1) THEN MO=1:FOR I=1 TO M+1:T=A(I,J):A(I,J)=A(I,J+1):A(I,J+1)=T:NEXT:T=P(J):P(J)=P(J+1):P(J+1)=T
  27. 230 NEXT J
  28. 240 IF MO=1 THEN PRINT "*";:GOTO 210
  29. 241 PRINT CHR$(13);
  30. 242 PRINT "ARRANGEMENT DES PIECES:":FOR I=1 TO P:PRINT P(I);:NEXT
  31. 250 REM GOSUB #2
  32.